home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / H-L / Investors INFO 9210.cpt / Investors INFO 9210 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-10-19  |  4KB  |  35 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>10</cardCount>
  7.     <cardID>3685</cardID>
  8.     <listID>9384</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on Activate_objput ActiveSel() into selectedset the hilite of bg btn selected to falseset the hilite of the target to truelock screenput the short name of the target into ThisOneput ThisOne into bg fld "ActiveSel"Send "CloseMe" to bg fld selectedhide bg fld selectedset the rect of bg fld thisOne to rect of bg fld "ActiveSel Template"show bg fld thisOnesend "OpenMe" to bg fld thisOneunlock screen with visual effect dissolveend Activate_objFunction ActiveSelreturn line 1 of bg fld "ActiveSel"end ActiveSelOn Show_INFO NmXset cursor to busyput "Fetching description for ..." && NmXGet bg fld "Data" of card "Step Descriptions"put it into DataXPut FullSort(DataX,"i=|","t=n","d=a","c=item 1") into DataXPut line nmX of DataX into lineXset itemdelimiter to "|"repeat with i = 1 to number of items of lineXif i is 1 thenput "Event:" && item i of lineX into line i of ListXelse  if i is 2 thenif item i of lineX contains "MC" thenput "Monetary Cycle Event" into typeXelseput "Business Activity Event" into typeXend ifput "Event Type:" && TypeX into line i of ListXelse  if i is 3 thenif item i of lineX contains "Bull" thenput "Bull Market" into typeXelseput "Bear Market" into typeXend ifput "Market Phase:" && TypeX into line i of ListXelse  if i is 4 thenput "Description:" && return & item i of LineX into line i of ListXend ifPut return & "**** Headlines****" after ListXend repeatset itemDelimiter to commaput listX & return into card fld "INFO"put "Fetching headlines for ..." && NmXGet bg fld "Data" of card "Bus Headlines"put it into DataXset itemdelimiter to "|"repeat with i = 1 to number of lines of DataXif item 1 of line i of DataX is nmX thenput line i of DataX & return after card fld "INFO"end ifend repeatset itemDelimiter to commashow card fld "INFO"put emptyhide messageend Show_INFO</script>
  17.     <background id="2280" file="background_2280.xml" name="" />
  18.     <background id="2922" file="background_2922.xml" name="Bus Cycle" />
  19.     <background id="4034" file="background_4034.xml" name="" />
  20.     <background id="4837" file="background_4837.xml" name="" />
  21.     <background id="6885" file="background_6885.xml" name="Bus Cycles" />
  22.     <background id="7430" file="background_7430.xml" name="" />
  23.     <background id="9757" file="background_9757.xml" name="" />
  24.     <card id="3685" file="card_3685.xml" marked="false" name="Cover" owner="4034" />
  25.     <card id="7237" file="card_7237.xml" marked="false" name="old Earnings Chart" owner="2280" />
  26.     <card id="9042" file="card_9042.xml" marked="false" name="Earnings Chart" owner="9757" />
  27.     <card id="6956" file="card_6956.xml" marked="false" name="Earnings Reports" owner="7430" />
  28.     <card id="2476" file="card_2476.xml" marked="false" name="Ind Hourly" owner="4837" />
  29.     <card id="5532" file="card_5532.xml" marked="false" name="IND Daily" owner="4837" />
  30.     <card id="5997" file="card_5997.xml" marked="false" name="Ind Weekly" owner="4837" />
  31.     <card id="2597" file="card_2597.xml" marked="false" name="Bus Cycle" owner="2922" />
  32.     <card id="6437" file="card_6437.xml" marked="false" name="Step Descriptions" owner="6885" />
  33.     <card id="8657" file="card_8657.xml" marked="false" name="Bus Headlines" owner="6885" />
  34. </stack>
  35.